home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / basic / ace24dist.lha / ace24.lha / utils / ab2ascii-1.3 / examples / test (.txt) < prev   
AmigaBASIC Source Code  |  1996-09-11  |  1KB  |  43 lines
  1. REM This is a remark beginning with a REM statement
  2. ' This remark has only a leading tick
  3. CLS : REM CLS : REM ...
  4. CLS ' CLS ' ...
  5.  
  6. ' This program text should follow 2 remark lines and 1 empty line
  7. :'   10 PRINT "hallo"  ( :' remark )
  8. :REM 20 GOTO 10        ( :REM remark )
  9.  
  10. 10 PRINT "hallo"
  11. 20 GOTO 10
  12.  
  13. REM a loooooong line
  14. PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
  15.  
  16. PRINT "eins""zwei" "drei";
  17.  
  18. ' breaking strings across lines
  19. bug$ = "buggy""
  20.               string"
  21.      
  22. GOSUB NonExistantSubroutine
  23.     
  24. ' 65529 is the upper limit for a line number on the LHS
  25. 65529 GOTO 10
  26.  
  27. ' The RHS in fact does not matter (AmigaBASIC will split it)
  28. 6553 0 GOTO 65540
  29.  
  30. 9999 GOTO 9999999999999
  31.  
  32. SUB routine STATIC
  33.  
  34. ' while loops
  35. WHILE i>0 : i=i-1 : WEND
  36.  
  37. WHILE NOT i>0
  38.   i=1+1
  39. WEND
  40.  
  41. END SUB
  42.  
  43.